int main(string a)
{
	object ret;
	mixed code;

	if (file_size("/tmp_eval_file.c") != -1)
		rm("/tmp_eval_file.c");
	if (find_object("/tmp_eval_file"))
		destruct(find_object("/tmp_eval_file"));

	write_file("/tmp_eval_file.c", "mixed eval() { " + a + "; }\n");

	ret = load_object("/tmp_eval_file");

	dump_prog(ret, 1, "/CODE_TMP_FILE");
	code = read_file("/CODE_TMP_FILE");
	rm("/CODE_TMP_FILE");
	rm("/tmp_eval_file.c");

	code = explode(code, ";;;  *** Disassembly ***\n");
	code = code[1];
	write(code[0..strlen(code) - 1]);
	return 1;
}
